home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / dirdropp.lha / DirDropper.AMOS / DirDropper.amosSourceCode
AMOS Source Code  |  1994-03-04  |  3KB  |  109 lines
  1. '
  2. ' DirDropper V2.32   
  3. '  
  4. ' By Chill Enterprises 1995
  5. '
  6. _DOIT
  7. Global CA$
  8. Procedure _DOIT
  9.    Screen Open 0,640,200,4,Hires : Curs Off : Hide : Flash Off 
  10.    Palette 0,0,$4E4,$4E4
  11.    Cls 
  12.    Centre "DirDropper V2.32"
  13.    Print : Print 
  14.    Input "Output to screen also (Y/N) :> ";QK$
  15.    QK$=Upper$(QK$)
  16.    If QK$<>"N"
  17.       QK=1
  18.    Else 
  19.       QK=0
  20.    End If 
  21.    Print 
  22.    Print "1. Include Total number of files at the end of the file."
  23.    Print "2. Include Total number of files at the end of every disk entry."
  24.    Print "3. Both of the above."
  25.    Print "4. Dont include anything."
  26.    BLOJ:
  27.    Print : Input "Select from the above :> ";CHOOSE
  28.    If CHOOSE<1 or CHOOSE>4
  29.       Goto BLOJ
  30.    End If 
  31.    UGHT:
  32.    Print 
  33.    Input "Shut-Up Mode (No bell or boom) :>";SHUP$
  34.    If Upper$(SHUP$)="Y"
  35.       SHUP=1
  36.    End If 
  37.    
  38.    AJA:
  39.    Print 
  40.    Print "Specify directory where listfile should be put:"
  41.    Print 
  42.    Input ":> ";A$
  43.    If Not Exist(A$)
  44.       Print : Print "Directory does not exist - may not be mounted or inserted."
  45.       Goto AJA
  46.    End If 
  47.    Input "Name of Listfile :> ";CX$
  48.    If Instr(A$,"/")=0 and Right$(A$,1)<>":"
  49.       A$=A$+"/"
  50.    End If 
  51.    CA$=A$+CX$
  52.    Open Out 1,CA$
  53.    Input "Enter Starting-Number :> ";SS
  54.    Input "Enter End-Number      :> ";CF
  55.    Print 
  56.    Print "Enter your List-Title (Will be displayed at top of file)..."
  57.    Input ":> ";LISTTITLE$
  58.    Print #1,LISTTITLE$
  59.    Print "Enter your Disk-title (Will be displayed over every diskentry)..."
  60.    Input ":> ";QWE$
  61.    _TOTAL=0
  62.    
  63.    For I=SS To CF
  64.       _DTOTAL=0
  65.       Print 
  66.       Print "Insert Disk Number :> ";I
  67.       Print 
  68.       Centre "Any key to Continue!"
  69.       Print : Print 
  70.       Wait Key 
  71.       Print #1,QWE$+", Disk "+Str$(I)
  72.       Print #1," "
  73.       Dir$=("DF0:")
  74.       F$=Dir First$("DF0:")
  75.       Repeat 
  76.          Print #1,F$
  77.          Inc _DTOTAL : Inc _TOTAL
  78.          If QK=1
  79.             Print F$
  80.          End If 
  81.          F$=Dir Next$
  82.       Until F$=""
  83.       Print #1," "
  84.       Print #1," "
  85.       If SHUP=0
  86.          Bell 
  87.       End If 
  88.       If CHOOSE=2 or CHOOSE=3
  89.          _DTOTAL$="< A total of"+Str$(_DTOTAL)+" files on this disk. >"
  90.          Print #1,_DTOTAL$
  91.          Print #1," "
  92.          Print #1," "
  93.       End If 
  94.    Next 
  95.    If CHOOSE=1 or CHOOSE=3
  96.       _TOTAL$="<<< A total of"+Str$(_TOTAL)+" files. >>>"
  97.       Print #1,_TOTAL$
  98.       Print #1," "
  99.       Print #1," "
  100.    End If 
  101.    Close 1
  102.    If SHUP=0
  103.       Boom 
  104.    End If 
  105.    Print : Print "Finished!"
  106.    Print : Print "Any key to Return to Editor"
  107.    Wait Key 
  108.    Edit 
  109. End Proc